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cro v04-00 Page 
LIBRTL.SRCJOTSCVTDP.MAR; 1 
-TITLE OISSEYTOP_RO Sepyers Double pl eet og to Pocked 
eIDENT /1-005/ ; File: otscvtdp.MAR Edit: PLL1005 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE R SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. Mae SOFTWARE OR ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeepokat ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: LANGUAGE INDEPENDENT SUPPORT 


; ABSTRACT: 
This module contains the routine that converts double floating 
numbers to packed. 


; VERSION: 1 


+ AUTHOR: 


Marty Jack, 14-Mar-1979 


; HISTORY: 
; MODIFIED BY: 


NAWUE AN @ SO OOO NAME WN OS OD NAN EW O OONAU EW OOO VOU Wh 


—————_—_-——_ 


F 11 
TSSCVTDP_RO Convert Double Floating to Packed SEP=1984 AX/VMS Macro V04-00 P 
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-SBTTL HISTORY ; Detailed Current Edit History 


SDOOCS 


Edit History for Version 1 of otscvtdp 
1-30 = Original. MLJ —— r=-1979 


+ 


- Made oespree $s expl Tit. R RKR_ 17*JULY-79 
- change 2 af gterences to FORSCNV_ but .E to COBSCNVOUT 


1- 3 - pln, 4 IG RKR 18-OCT-79 
- ty A course module to OTS$ but retain old entry point name. 


: 


—— 
a 


; 
g 
5 
; 
fi 


} 
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egg Sects Ftoet ie co rected’ EERIE OER:E% USGS, SHES AEA wa 


ECLAR =-SEP=-1 
; -SSTTL DECLARATIONS 
i 
; INCLUDE FILES: 
oo : SOSCDEF 
ri EXTERNAL SYMBOLS: 
ye -DSABL GBL ; Prevent undeclared symbols from 
a ; being automatically global 
75 -EXTRN OTSSCNVOUT 3; E-format conversion 
6 -EXTRN LIBSSTOP 3: error halt 
f -EXTRN OTSS_FATINTERR ; Fatal internal error code 
8 
f 
: : MACROS: 
$ NONE 
4; 
5 
DC 3 PSECT DECLARATIONS: 
000000 -PSECT _OTSSCODE PIC, SHR, LONG, EXE, MOWRT,- 
4 9 USR, CON, REL, LCL, RD 
0 90 
3 91 ; 
0 92 ; EQUATED SYMBOLS: 
44 93; NONE 
00 9%; 
sit 95 
000 96 ; 
3208 97 ; OWN STORAGE: 
000 98 ; NONE 
0000 ; 


OTSSEVTOP_RO 
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SBTTL OTSSCVTDP_RO 


+ 
FUNCTIONAL DESCRIPTION: 

Converts a double floating number to packed. 
CALLING SEQUENCE: 


Arguments are passed in R6, R7, RB and RI. 
INPUT PARAMETERS: 


IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 


IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R9. 


Be Se Se Se Se Se Ge Ge Ge Ge Se Ge Se Ge Oe Ge Se Ge Se Se Se Se Se Se Ge Ge Se Se Se Se Ge Se Ge Se Se Se Se Se Se Sete 
+ 


#48,SP : Allocate temp space 
NBSP > Get input A... 


? Make a pad i: for the temporary ib 
PUSHAB 8(SP) 


; Address = space reserved 


MOVB #OSCSK_CLAS -(SP) ; Class = sta 
MOVB At eat DTYP -(SP) 3; Data type = “ASC string 
MOVW -(SP) ; Length in byte 


RR TS RR A A RN BE a NaCI Heit tet OBS mae atte. eee 


oT a a og s t e 


JSB OTSSCVTDP_RO (scale.rl.v, src.rd.r, dstlen.rl.v, dst.wp.r) 


SCALE.rl.v _ power of ten by which the internal 
te GA eg ne mag of the source must be 
tiplied to scale the same as the 
intornei representation of the dest. 
SRC. rd.r The number to be converted 
DSTLEN.rl.v The number of digits iy the destination 


DST.wp.r The place to store the converted number 


Page 


] 
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if Call OTSSCNVOUT. 
é 
6 


1F PUSHL #31 ; 4y its in fraction 

% AE PUSHAB fete ,, ; —— string Coser iptor 

. OA ey ; Number to convert 

00000000 ' GF 9 CAL a6" “Ot sscnvout 3 tet conversion routine 
29 SLB’ 3; Should never fail 
; S Convert the exponent and correct for scale factor. 
6— 02 Pad ae 03 we ¢ ai a #2, (SP) 3; Make ached exponent 
30 of A64 MOVAB *S deste 1,R6 ; Correct fer on size and scale 


Convert the fraction to packed. 
MOVB \g(SP) 18(SP) 
CVTSP #31, 18(SP) #31, (S sP) 
ASHP =—- R6, #31, (SPS, #O.RB, (ROD 
BVS 10$ 


L RO 
10$: ADDL2 #56,SP 
RSB 


; Make wo g Be 


Move sign over 
Make packed fraction 
Scale to destination 
(also clears RO) 
Branch if overflowed 
Indicate success, RO = 1 
Delete stack temps 


12 “s 10 AE 
1F 12 AE OF 
69 58 00 6€ 56 


NUIVIT COIN B® & EE ES SE POTT 


SE i 049 


00000000 * 8F 


50s: PUSHL #OTSS_FATINTERR ; OTS fatal error message 
00000000'GF 01 9 


4 
§ CALLS #1,G*CIBSSTOP : Signal and don't return 
~END 


: + Cone here on failure of OTSSCNVOUT. This should never happen. 
| 
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ymbol table P= 1984 LIBRTL.§ 
COBSCVTDP_RO RG 02 
DSCSK_CLASS ' 
DScSK-DIVPE =? ° 
LIBSSTOP peceeees x 
OTSSCNVOUT ereerere 
OTSSCVTDP_RO 00000000 RG. 3 
OTSS_FATINTERR eteerere 


ge were eee er seco enn} 


! Psect synopsis ! 


ge wmonescese ac coeunt 


PSECT name Allocation PSECT No. Attributes 

- ABS . 0000: ( -» 00 ¢ -} NOPIC USR CON ABS - LCL NOSHR NOEXE 
SABS 0000 ( . 2 -) NOPIC USR CON ABS LCL NOSHR’- EXE 
_OTSSCODE OOOO0SA (« 90.) O02 ¢ 2.) PIC USR CON REL LCL SHR- EXE 


bwecscwmanmenereueraanae weecoceeoce+¢ 


! Performance indicators : 


dene emer acnwrenocawace 2eeecee 


a 
TDP .MAR; 1 


— ~ NOVEC 


Elapsed Time 
00:00:0 


SOOOOOSDS 
Ssssssss. 


oooooooo 


oooooceoa 


Phase Page faults CPU Time 
Initialization 9 0:00: 8.9 
Command processing 1 3 :00:00. 
Pass 1 1 0:00:01.1 
—- table sort 0 0: _ a 
Pas 4 3: 700.35 
Symbol table output :00: Oe 
Psect synopsis output 0:00:00. 
Cross-reference output BF 88: s : 
Assembler run totals 32 0:00:02. 
ihe working is Limit was 1050 pages. 
bytes ( pages) of virtual memory were used to buffer the intermediate code. 


aed were ages of symbol table space allocated t 
source eee rend in Pass 1 ww eretes ta 10 


8 pages of virtual memory were used to define 3 macros. 


hold 136 non-local and 2 Local symbols. 


object records in Pass 2. 


ge somesceer scr ece eer soe es cee eee + 


! Macro Library statistics : 


A enemniaisemienine 


Macro Library name 
_$255S0UA28: CSYSLIBISTARLET.MLB; 2 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


BYTE 
NOVEC BYTE 
LONG 


RD NOURT NOVEC 


MACRO/ENABLE=SUPPRESS1ON/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTDP/OBJ=0BJ$:OTSCVTDP MSRC$:OTSCVTDP/UPDATE=(ENH$:OTSCVTDP) 


roe 
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